Attaching package: ‘dplyr’

The following objects are masked from ‘package:stats’:

    filter, lag

The following objects are masked from ‘package:base’:

    intersect, setdiff, setequal, union

Warning: package ‘plotly’ was built under R version 4.3.3
Attaching package: ‘plotly’

The following object is masked from ‘package:ggplot2’:

    last_plot

The following object is masked from ‘package:stats’:

    filter

The following object is masked from ‘package:graphics’:

    layout

Warning: package ‘treemapify’ was built under R version 4.3.3
`summarise()` has grouped output by 'Mes', 'Día'. You can override using the `.groups` argument.
anioCTG<-data %>%
  group_by(Año,Tipo.de.circulación,Estado.del.tiempo,Clase.de.accidente) %>%
  summarise(NumeroAccidentes=n(),.groups="drop")

anioCTG<-anioCTG%>%
  group_by(Año,Tipo.de.circulación,Estado.del.tiempo,Clase.de.accidente)%>%
  summarise(Accidentes = min(NumeroAccidentes),.groups = "drop")%>%
  arrange(Accidentes)
anioCTG<-anioCTG%>%
  rename(Circulacion = Tipo.de.circulación)%>%
  rename(Clima = Estado.del.tiempo)%>%
  rename(Gravedad = Clase.de.accidente)

anioCTG$Año<-substr(anioCTG$Año, start = 3, stop = nchar(anioCTG$Año))
#elimino el 20 del año para que sea mejor la respresentación textual
#o sea en vez de 2016 sale 16
LS0tDQp0aXRsZTogIkFjY2lkZW50ZXMgZGUgdHJhbnNpdG8gZW4gQ1IgZW50cmUgMjAxNi0yMDIyIg0Kb3V0cHV0OiBodG1sX25vdGVib29rDQotLS0NCg0KYGBge3IsIGVjaG8gPSBGQUxTRX0NCmRhdGEgPC0gcmVhZC5jc3YoImFjY2lkZW50ZXNfdHJhbnNpdG9fY29uX3ZpY3RpbWFzXzIwMTZfMjAyMi5jc3YiLCBzZXAgPSAiOyIpDQpgYGANCg0KYGBge3IsIGVjaG8gPSBGQUxTRX0NCmxpYnJhcnkoZHBseXIpDQpsaWJyYXJ5KGdncGxvdDIpDQpsaWJyYXJ5KHBsb3RseSkNCmxpYnJhcnkoY29sb3JzcGFjZSkNCmxpYnJhcnkodHJlZW1hcGlmeSkNCmBgYA0KDQpgYGB7ciwgZWNobz1GQUxTRX0NCiNvYnRlbmVtb3MgbG9zIG1lc2VzLCBkaWFzIHkgbGEgcnV0YSBkb25kZQ0KI21hcyBhY2NpZGVudGVzIGhheQ0KbWVzZXNfZGlhc19SVV9tYXNfYWNjaWRlbnRlcyA8LSBkYXRhICU+JQ0KICBmaWx0ZXIoZ3JlcGwoIl5bQS1MXVxcLi4qXFxzKEVuZXJvfEZlYnJlcm98TWFyem98QWJyaWx8TWF5b3xKdW5pb3xKdWxpb3xBZ29zdG98U2V0aWVtYnJlfE9jdHVicmV8Tm92aWVtYnJlfERpY2llbWJyZSkkIiwgTWVzKSkgJT4lDQogIGZpbHRlcihncmVwbCgiXlsxLTddXFwuKERvbWluZ298THVuZXN8TWFydGVzfE1pw6lyY29sZXN8SnVldmVzfFZpZXJuZXN8U8OhYmFkbykkIiwgRMOtYSkpICU+JQ0KICBncm91cF9ieShNZXMsRMOtYSxSdXRhKSAlPiUNCiAgc3VtbWFyaXNlKE1EdG90YWxfYWNjaWRlbnRlcyA9IG4oKSkgJT4lDQogIGFycmFuZ2UoZGVzYyhNRHRvdGFsX2FjY2lkZW50ZXMpKQ0KDQpyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMgPC0gbWVzZXNfZGlhc19SVV9tYXNfYWNjaWRlbnRlcyAlPiUNCiAgZ3JvdXBfYnkoTWVzKSAlPiUNCiAgc2xpY2UoMSkNCiAgDQpudW1lcm9fbWVzIDwtIHNlcSgxLCAxMiwgbGVuZ3RoLm91dCA9IG5yb3cocmVnaXN0cm9zX21hc19mcmVjdWVudGVzKSkNCm51bWVyb19tZXMgPC0gYXMuaW50ZWdlcihudW1lcm9fbWVzKQ0KcmVnaXN0cm9zX21hc19mcmVjdWVudGVzIDwtIGNiaW5kKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcywgTnVtZXJvTWVzID0gbnVtZXJvX21lcykNCg0KIyBDcmVhciB1bmEgY29sdW1uYSBwYXJhIGVsIG7Dum1lcm8gZGUgZMOtYSBzZWfDum4gZWwgZMOtYSBkZSBsYSBzZW1hbmEgZW4gcmVnaXN0cm9zX21hc19mcmVjdWVudGVzDQpyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMkQ29sb3JEaWEgPC1pZmVsc2UocmVnaXN0cm9zX21hc19mcmVjdWVudGVzJETDrWEgPT0gIjEuRG9taW5nbyIsICJibHVlIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyREw61hID09ICIyLkx1bmVzIiwgInJlZCIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlmZWxzZShyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMkRMOtYSA9PSAiMy5NYXJ0ZXMiLCAieWVsbG93IiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyREw61hID09ICI0Lk1pw6lyY29sZXMiLCAiY3lhbiIsDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIGlmZWxzZShyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMkRMOtYSA9PSAiNS5KdWV2ZXMiLCAiZGFya2dyZWVuIiwNCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgaWZlbHNlKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyREw61hID09ICI2LlZpZXJuZXMiLCAiYnJvd24iLA0KICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICBpZmVsc2UocmVnaXN0cm9zX21hc19mcmVjdWVudGVzJETDrWEgPT0gIjcuU8OhYmFkbyIsICJibGFjayIsIE5BKSkpKSkpKQ0KDQpyZWdpc3Ryb3NfbWFzX2ZyZWN1ZW50ZXMkaWRSdXRhIDwtaWZlbHNlKHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyRSdXRhID09ICJDYW50b25hbCIsIDEpDQogICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICANCnJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyRNZXMgPC0gZ3N1YigiW0EtTF1cXC4iLCAiIiwgcmVnaXN0cm9zX21hc19mcmVjdWVudGVzJE1lcykNCg0KcmVnaXN0cm9zX21hc19mcmVjdWVudGVzJETDrWEgPC0gZ3N1YigiWzEtN11cXC4iLCAiIiwgcmVnaXN0cm9zX21hc19mcmVjdWVudGVzJETDrWEpDQoNCmBgYA0KDQpgYGB7ciwgZWNobyA9IEZBTFNFfQ0KZ3JhZmljb19jaGVybm9mZiA8LSBnZ3Bsb3QocmVnaXN0cm9zX21hc19mcmVjdWVudGVzLCBhZXMoeCA9IE51bWVyb01lcywgeSA9IGlkUnV0YSxsYWJlbDEgPSBNZXMsbGFiZWwyID0gUnV0YSxsYWJlbDMgPSBEw61hKSkgKw0KICBnZW9tX3BvaW50KHNpemUgPSA5LGNvbG91ciA9IHJlZ2lzdHJvc19tYXNfZnJlY3VlbnRlcyRDb2xvckRpYSkgKw0KICBsYWJzKHggPSAiTWVzIix5ID0gIlJ1dGEiKSArDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSAi8J+Rge+4jyDwn5GB77iPIiksdmp1c3QgPSAtNSwgc2l6ZSA9IDMpKyAgDQogIGdlb21fdGV4dChhZXMobGFiZWwgPSAi8J+RhCIpLCB2anVzdCA9IDUsIHNpemUgPSAyKSArDQogIHRoZW1lX2J3KCkNCg0KIyBDb252ZXJ0aW1vcyBlbCBncsOhZmljbyBnZ3Bsb3QyIGVuIHVubyBpbnRlcmFjdGl2byBjb24gcGxvdGx5DQpncmFmaWNvX2ludGVyYWN0aXZvIDwtIGdncGxvdGx5KGdyYWZpY29fY2hlcm5vZmYsdG9vbHRpcCA9IGMoImxhYmVsMSIsICJsYWJlbDIiLCAibGFiZWwzIikpDQoNCiMgTW9zdHJhbW9zIGVsIGdyw6FmaWNvIGludGVyYWN0aXZvDQpncmFmaWNvX2ludGVyYWN0aXZvDQoNCiMgMTIgY2FyYXMgcG9yIGxvcyBtZXNlcywgY29sb3IgY2FyYSBkaWFzIC4uLiB5IHRhbWFuaG8gY2FyYSBydXRhDQpgYGANCg0KYGBge3IsZWNobz1GQUxTRX0NCnJ1cmFsVXJiYW5vX21hc19hY2NpZGVudGVzPC1kYXRhICU+JQ0KICBncm91cF9ieShSdXJhbC5vLnVyYmFubyklPiUNCiAgc3VtbWFyaXNlKFJVdG90YWxfYWNjaWRlbnRlcyA9IG4oKSkgJT4lDQogIGFycmFuZ2UoZGVzYyhSVXRvdGFsX2FjY2lkZW50ZXMpKQ0KIyBkZXNkZSAyMDE2IGhhc3RhcyAyMDIyDQpgYGANCg0KYGBge3IsZWNobz1GQUxTRX0NCmxhYmVscyA9IHJ1cmFsVXJiYW5vX21hc19hY2NpZGVudGVzJFJ1cmFsLm8udXJiYW5vDQp2YWx1ZXMgPSBydXJhbFVyYmFub19tYXNfYWNjaWRlbnRlcyRSVXRvdGFsX2FjY2lkZW50ZXMNCg0KZmlnIDwtIHBsb3RfbHkodHlwZT0ncGllJywgbGFiZWxzPWxhYmVscywgdmFsdWVzPXZhbHVlcywgDQogICAgICAgICAgICAgICB0ZXh0aW5mbz0nbGFiZWwrcGVyY2VudCcsDQogICAgICAgICAgICAgICBpbnNpZGV0ZXh0b3JpZW50YXRpb249J3JhZGlhbCcpDQpmaWcgPC0gZmlnICU+JSBsYXlvdXQodGl0bGUgPSAnQWNjaWRlbnRlcyBwb3IgcnV0YSBlbnRyZSAyMDE2LTIwMjInKQ0KDQpmaWcNCmBgYA0KDQpgYGB7cixlY2hvPUZBTFNFfQ0KI3kgPW1pZGVwbGFuIHg9IGNhbnRvbg0KI3RlbmVyIGNhbnRvbiBjb24gbWFzIHkgbWVub3MgYWNjaWRlbnRlcw0KcmVnaW9uX2NhbnRvbl9tYXNfYWNjaWRlbnRlczwtZGF0YSU+JQ0KICBncm91cF9ieShSZWdpw7NuLk1pZGVwbGFuLCBDYW50w7NuKSU+JQ0KICBzdW1tYXJpc2UoUkN0b3RhbF9hY2NpZGVudGVzID0gbigpLC5ncm91cHMgPSAiZHJvcCIpDQoNCnJlZ2lvbl9jYW50b25fbWFzX2FjY2lkZW50ZXM8LXJlZ2lvbl9jYW50b25fbWFzX2FjY2lkZW50ZXMlPiUNCiAgZ3JvdXBfYnkoUmVnacOzbi5NaWRlcGxhbiwgQ2FudMOzbiklPiUNCiAgc3VtbWFyaXNlKG1heF92YWxvciA9IG1heChSQ3RvdGFsX2FjY2lkZW50ZXMpLC5ncm91cHMgPSAiZHJvcCIpJT4lDQogIGFycmFuZ2UobWF4X3ZhbG9yKQ0KDQojIE7Dum1lcm8gZGUgY29sb3JlcyBkZXNlYWRvDQpuX2NvbG9yZXMgPC0gMTc2DQoNCiMgR2VuZXJhciBsYSBwYWxldGEgZGUgY29sb3Jlcw0KDQpwYWxldGFfY29sb3JlcyA8LXJhaW5ib3dfaGNsKG5fY29sb3JlcykgIyBFamVtcGxvIGRlIGNvbG9yZXMgYmFzZQ0KYGBgDQoNCmBgYHtyLGVjaG89RkFMU0V9DQoNCmZpZyA8LSBwbG90X2x5KHJlZ2lvbl9jYW50b25fbWFzX2FjY2lkZW50ZXMsIHggPSB+UmVnacOzbi5NaWRlcGxhbiwgeSA9IH5tYXhfdmFsb3IsIG1hcmtlciA9IGxpc3QoY29sb3I9cGFsZXRhX2NvbG9yZXMpICwgdHlwZSA9ICdiYXInLGhvdmVydGVtcGxhdGUgPSB+cGFzdGUoIlJlZ2nDs246ICIsIFJlZ2nDs24uTWlkZXBsYW4sICI8YnI+Q2FudMOzbjogIiwgQ2FudMOzbiwgIjxicj5WYWxvcjogIiwgbWF4X3ZhbG9yLA0KICAgICAgIjxleHRyYT48L2V4dHJhPiIpKQ0KDQpmaWcgPC0gZmlnICU+JSBsYXlvdXQoeWF4aXMgPSBsaXN0KHRpdGxlID0gJycpLHhheGlzPWxpc3QodGl0bGUgPSAnJyksIGJhcm1vZGUgPSAnc3RhY2snKQ0KDQpmaWcNCmBgYA0KDQpgYGB7cn0NCmFuaW9DVEc8LWRhdGEgJT4lDQogIGdyb3VwX2J5KEHDsW8sVGlwby5kZS5jaXJjdWxhY2nDs24sRXN0YWRvLmRlbC50aWVtcG8sQ2xhc2UuZGUuYWNjaWRlbnRlKSAlPiUNCiAgc3VtbWFyaXNlKE51bWVyb0FjY2lkZW50ZXM9bigpLC5ncm91cHM9ImRyb3AiKQ0KDQphbmlvQ1RHPC1hbmlvQ1RHJT4lDQogIGdyb3VwX2J5KEHDsW8sVGlwby5kZS5jaXJjdWxhY2nDs24sRXN0YWRvLmRlbC50aWVtcG8sQ2xhc2UuZGUuYWNjaWRlbnRlKSU+JQ0KICBzdW1tYXJpc2UoQWNjaWRlbnRlcyA9IG1pbihOdW1lcm9BY2NpZGVudGVzKSwuZ3JvdXBzID0gImRyb3AiKSU+JQ0KICBhcnJhbmdlKEFjY2lkZW50ZXMpDQphbmlvQ1RHPC1hbmlvQ1RHJT4lDQogIHJlbmFtZShDaXJjdWxhY2lvbiA9IFRpcG8uZGUuY2lyY3VsYWNpw7NuKSU+JQ0KICByZW5hbWUoQ2xpbWEgPSBFc3RhZG8uZGVsLnRpZW1wbyklPiUNCiAgcmVuYW1lKEdyYXZlZGFkID0gQ2xhc2UuZGUuYWNjaWRlbnRlKQ0KDQphbmlvQ1RHJEHDsW88LXN1YnN0cihhbmlvQ1RHJEHDsW8sIHN0YXJ0ID0gMywgc3RvcCA9IG5jaGFyKGFuaW9DVEckQcOxbykpDQojZWxpbWlubyBlbCAyMCBkZWwgYcOxbyBwYXJhIHF1ZSBzZWEgbWVqb3IgbGEgcmVzcHJlc2VudGFjacOzbiB0ZXh0dWFsDQojbyBzZWEgZW4gdmV6IGRlIDIwMTYgc2FsZSAxNg0KYGBgDQoNCmBgYHtyLGVjaG89RkFMU0V9DQpmYWNlSW50ZXJhY3Rpdm8gPC0gZ2dwbG90KGFuaW9DVEcsIGFlcyh4PUNpcmN1bGFjaW9uLCB5PUFjY2lkZW50ZXMsIGNvbG9yPUNsaW1hLCBncm91cD1HcmF2ZWRhZCkpICsNCiAgICBnZW9tX3BvaW50KCkrDQogICAgbGFicyh4PSJUaXBvIGRlIGNpcmN1bGFjacOzbiIseT0iQ2FudGlkYWQgYWNjaWRlbnRlcyIsY29sb3VyPSIgRXN0YWRvIGRlbCBjbGltYSIpKw0KICBzY2FsZV95X2NvbnRpbnVvdXMobGltaXRzID0gYygwLCAyNjAwKSwgYnJlYWtzID0gYygwLCAyNjAwKSkrDQogIHRoZW1lKGF4aXMudGV4dC54ID0gZWxlbWVudF90ZXh0KGFuZ2xlID0gLTQ1LCBoanVzdCA9IDApLGF4aXMudGV4dC55ID0gZWxlbWVudF90ZXh0KGFuZ2xlPTEyKSkrDQogICAgZmFjZXRfZ3JpZChBw7FvIH4gLiwgc2NhbGUgPSAiZnJlZV94IixzcGFjZSA9ICJmcmVlIikNCiAgICANCg0KZ2dwbG90bHkoZmFjZUludGVyYWN0aXZvKQ0KYGBgDQoNCmBgYHtyLCBlY2hvID0gRkFMU0V9DQojIENhbGN1bGFyIGxhIGNhbnRpZGFkIGRlIGFjY2lkZW50ZXMgcG9yIGHDsW8NCmZyZWN1ZW5jaWFfYcOxbyA8LSB0YWJsZShkYXRhJEHDsW8pDQoNCiMgQ3JlYXIgdW4gZnJhbWUgZGUgZGF0b3MgY29uIGxhIGZyZWNpZW5jYSB5IGVsIGHDsW8NCmRhdG9zX2ZyZWN1ZW5jaWFfYcOxbyA8LSBkYXRhLmZyYW1lKA0KICBBw7FvID0gbmFtZXMoZnJlY3VlbmNpYV9hw7FvKSwNCiAgQWNjaWRlbnRlcyA9IGFzLm51bWVyaWMoZnJlY3VlbmNpYV9hw7FvKQ0KKQ0KDQojIENyZWFyIGVsIGdyYWZpY28gY29uIHVuIHB1bnRvIHBvciBjYWRhIGHDsW8NCnB1bnRvc19hw7FvIDwtIGdncGxvdChkYXRvc19mcmVjdWVuY2lhX2HDsW8sIGFlcyh4ID0gQcOxbywgeSA9IEFjY2lkZW50ZXMsIGNvbG9yID0gQcOxbykpICsNCiAgZ2VvbV9wb2ludChzaXplID0gNSkgKw0KICBzY2FsZV94X2Rpc2NyZXRlKGJyZWFrcyA9IE5VTEwpICsNCiAgbGFicyh5ID0gIiMgZGUgYWNjaWRlbnRlcyIsIA0KICAgICAgIHRpdGxlID0gIkNhbnRpZGFkIGRlIGFjY2lkZW50ZXMgcG9yIGHDsW8iKSArDQogIHRoZW1lKGF4aXMudGl0bGUueCA9IGVsZW1lbnRfYmxhbmsoKSwNCiAgICAgICAgYXhpcy50ZXh0LnggPSBlbGVtZW50X2JsYW5rKCkpDQoNCmdncGxvdGx5KHB1bnRvc19hw7FvKQ0KYGBgDQoNCmBgYHtyLCBlY2hvID0gRkFMU0V9DQpiYXJyYXNfaG9yYSA8LSBnZ3Bsb3QoZGF0YSwgYWVzKHggPSBIb3JhLnJlY29kaWZpY2FkYSwgZmlsbCA9IEhvcmEucmVjb2RpZmljYWRhKSkgKw0KICBnZW9tX2JhcigpICsNCiAgbGFicyh0aXRsZSA9ICJBY2NpZGVudGVzIHBvciBIb3JhIHJlY29kaWZpY2FkYSAocmFuZ28gZGUgNiBob3JhcykiLA0KICAgICAgIHggPSAiSG9yYSBSZWNvZGlmaWNhZGEiLCB5ID0gIiMgZGUgYWNjaWRlbnRlcyIsIGZpbGwgPSAiUmFuZ28gaG9yYXJpbyIpICsNCiAgdGhlbWUoYXhpcy50ZXh0LnggPSBlbGVtZW50X2JsYW5rKCkpDQoNCmdncGxvdGx5KGJhcnJhc19ob3JhKQ0KYGBgDQoNCmBgYHtyLCBlY2hvID0gRkFMU0V9DQpiYXJyYXNfdGlwb19jbGFzZSA8LSBnZ3Bsb3QoZGF0YSwgYWVzKHggPSBUaXBvLmRlLmFjY2lkZW50ZSwgZmlsbCA9IENsYXNlLmRlLmFjY2lkZW50ZSkpICsNCiAgZ2VvbV9iYXIoKSArDQogIGxhYnModGl0bGUgPSAiVGlwb3MgZGUgaGVyaWRvcyBwb3IgdGlwbyBkZSBhY2NpZGVudGUiLA0KICAgICAgIHggPSAiVGlwbyBkZSBhY2NpZGVudGUiLCB5ID0gIiMgZGUgYWNjaWRlbnRlcyIsIGZpbGwgPSAiVGlwbyBkZSBoZXJpZG9zIikgKw0KICB0aGVtZShheGlzLnRleHQueCA9IGVsZW1lbnRfdGV4dChhbmdsZSA9IDMxNSwgaGp1c3QgPSAwKSkNCg0KZ2dwbG90bHkoYmFycmFzX3RpcG9fY2xhc2UpDQpgYGANCg==